unit uWarning;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TfrmWarning = class(TForm)
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Shape1: TShape;
    Button1: TButton;
    Bevel1: TBevel;
    Label6: TLabel;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;
  Function ShowFormWarning : Boolean;
var
  frmWarning: TfrmWarning;

implementation

{$R *.dfm}

Function ShowFormWarning : Boolean;
begin
  frmWarning := TfrmWarning.Create(Application);
  with frmWarning do
  try
    Result := ShowModal=mrOk;
  finally
    Free;
  end;
end;

procedure TfrmWarning.Button1Click(Sender: TObject);
begin
        Close;
end;

end.
